Function: inversion-<

inversion-< is a byte-compiled function defined in inversion.el.gz.

Signature

(inversion-< VER1 VER2)

Documentation

Return non-nil if VER1 is less than VER2.

Source Code

;; Defined in /usr/src/emacs/lisp/obsolete/inversion.el.gz
(defun inversion-< (ver1 ver2)
  "Return non-nil if VER1 is less than VER2."
  (let ((v1-0 (inversion-release-to-number (nth 0 ver1)))
	(v1-1 (nth 1 ver1))
	(v1-2 (nth 2 ver1))
	(v1-3 (nth 3 ver1))
	(v1-4 (nth 4 ver1))
	;; v2
	(v2-0 (inversion-release-to-number (nth 0 ver2)))
	(v2-1 (nth 1 ver2))
	(v2-2 (nth 2 ver2))
	(v2-3 (nth 3 ver2))
	(v2-4 (nth 4 ver2))
	)

    (cond ((and (equal (list v1-1 v1-2 v1-3 v1-4)
		       (list v2-1 v2-2 v2-3 v2-4))
		v1-0 v2-0)
	   (< v1-0 v2-0))
	  ((and (equal v1-1 v2-1)
		(equal v1-2 v2-2)
		(equal v1-3 v2-3)
		v1-4 v2-4)		; all or nothing if elt - is =
	     (< v1-4 v2-4))
	  ((and (equal v1-1 v2-1)
		(equal v1-2 v2-2)
		v1-3 v2-3)		; all or nothing if elt - is =
	     (< v1-3 v2-3))
	  ((and (equal v1-1 v2-1)
		v1-2 v2-2)
	     (< v1-2 v2-2))
	  ((and v1-1 v2-1)
	   (< v1-1 v2-1))
	)))